home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / apps / 255 / applic / dayoweek.pas < prev    next >
Pascal/Delphi Source File  |  1988-06-14  |  568b  |  22 lines
  1. FUNCTION DayOfWeek(m,d,y : integer) : integer;
  2. {Passed on with many thanks to the anonymous person who placed
  3. this function in public domain!
  4.    This function will return a number 0 thru 6
  5.    0 is Sunday, 1 is Monday, 2 is Tuesday, etc.
  6.    m is month, d is day, y is year
  7. }
  8. VAR
  9.   c : integer;
  10. BEGIN
  11.   m := m - 2;
  12.   IF m <= 0 THEN
  13.     BEGIN
  14.       m := m + 12;
  15.       y := y - 1;
  16.     END;
  17.   c := y DIV 100;
  18.   y := y - (c * 100);  
  19.   DayOfWeek := (((26 * m - 2) DIV 10) + d + y + (y DIV 4) +
  20.                 (c DIV 4) - 2 * c) MOD 7;
  21. END {dayofweek};
  22.